home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 22 / PC Actual CD 22.iso / SHARE / lector / cursor / EJEMPLO.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-02-17  |  1.2 KB  |  53 lines
  1.  
  2. { Programa de ejemplo para cambiar el puntero del ratón
  3.   utilizando el fichero que conseguimos al exportar, con
  4.   el programa EDCURSOR. }
  5.  
  6. uses MCursor, Graph, Crt;
  7.   
  8. {---} {Esto lo obtienes con EdCursor}
  9.  const mask : array [0..31] of word =
  10. (  65535,65535,64975,63631,63503,63519,63519,63495,63495,63495,63495,63503,63503,64543,64543,65535,
  11. 0,0,0,544,608,576,704,640,864,208,928,768,992,448,448,0);
  12. {---}
  13.   
  14. procedure IniciaGraf; {inicia el modo gráfico}
  15. var
  16.  grDriver: Integer;
  17.  grMode: Integer;
  18. begin
  19.  grDriver := Detect;
  20.  InitGraph(grDriver, grMode,' ');
  21.  if GraphResult <>grOk then
  22.  begin
  23.      writeln ('Error iniciando gráficos.');
  24.      halt;
  25.  end;
  26. end;
  27.  
  28. procedure initMouse; assembler ;
  29. {no comprueba si está instalado, para simplificar}
  30. asm
  31.    {inicia ratón}
  32.    mov ax,0000
  33.    int 33h
  34. end;
  35.  
  36. Procedure ShowMouse; assembler;
  37. asm
  38.    {mostrar puntero del ratón}
  39.    mov ax,0001
  40.    int 33h
  41. end;
  42.  
  43.  
  44. begin
  45.      IniciaGraf;  {inicia gráficos}
  46.      InitMouse;   {inicia ratón}
  47.      SetMouseCursor (mask); {cambia puntero del ratón}
  48.      ShowMouse;    {muestra puntero del ratón}
  49.      repeat until keypressed; {espera a pulsar}
  50.      CloseGraph;  {finaliza gráficos}
  51. end.
  52.  
  53.